home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 351-375 / disk_355 / rexxhostlib / glue / gettoken.asm < prev    next >
Assembly Source File  |  1992-05-06  |  209b  |  17 lines
  1. ;:ts=8
  2.  
  3.     section    text,code
  4.  
  5.     xref    _RexxHostBase
  6.     xdef    _GetToken
  7. _GetToken:
  8.     movem.l    a6/a2,-(sp)
  9.     move.l    _RexxHostBase,a6
  10.     movem.l    12(sp),a0/a1/a2
  11.     move.l    24(sp),d0
  12.     jsr    -84(a6)
  13.     movem.l    (sp)+,a6/a2
  14.     rts
  15.  
  16.     end
  17.